home *** CD-ROM | disk | FTP | other *** search
/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE4 / ZAP / !Zap / Modules / !ZapJRF / Scripts / Comment < prev    next >
Text File  |  2002-05-08  |  962b  |  90 lines
  1. | Basic
  2. #IfModeN Basic
  3.  CLEFT
  4.  #IfText " "
  5.   SEARCHFORWARD "\[^ ]"
  6.   LEFT
  7.   SEARCHBACK "\[ ]"
  8.  #EndIf
  9.  INSERT "REM "
  10.  CRIGHT
  11.  DOWN
  12.  CLEFT
  13. #EndIf
  14. | Assembler
  15. #IfModeN Asm
  16.  CLEFT
  17.  INSERT "; "
  18.  CRIGHT
  19.  DOWN
  20.  CLEFT
  21. #EndIf
  22. | Pascal
  23. #IfModeN Pascal
  24.  MJE_COMMENTLINE
  25. #EndIf
  26. | HTML
  27. #IfModeN HoTMeal
  28.  CLEFT
  29.  INSERT "<!-- "
  30.  CRIGHT
  31.  INSERT " -->"
  32.  DOWN
  33.  CLEFT
  34. #EndIf
  35. | C and C++
  36. #IfModeN C++,C
  37.  CLEFT
  38.  SEARCHFORWARD "\[^ \x09]"
  39.  LEFT
  40.  INSERT "/*"
  41.  UNSPACE
  42.  UNSPACE
  43.  CHAR 32
  44.  SEARCHFORWARD "\(/`*\|\x0a\)"
  45.  LEFT:LEFT
  46.  #IfText "/*"
  47.   RIGHT
  48.   INSERT "-"
  49.  #EndIf
  50.  CRIGHT
  51.  LEFT
  52.  LEFT
  53.  #IfText "*/"
  54.   CHAR 45
  55.   CRIGHT
  56.  #Else
  57.   CRIGHT
  58.   INSERT " */"
  59.  #EndIf
  60.  DOWN
  61.  CLEFT
  62. #EndIf
  63. | Obey and Zap
  64. #IfModeN Obey,ForZap
  65.  CLEFT
  66.  INSERT "| "
  67.  CRIGHT
  68.  DOWN
  69.  CLEFT
  70. #EndIf
  71. | Email (Increase quoting)
  72. #IfModeN Email
  73.  CLEFT
  74.  SELREGION
  75.  CRIGHT
  76.  EMAIL_INCQUOTING ">"
  77.  DOWN
  78.  CLEFT
  79. #EndIf
  80. | Perl mode
  81. #IfModeN Perl
  82.  CLEFT
  83.  SEARCHFORWARD "\[^ \x09]"
  84.  LEFT
  85.  INSERT "# "
  86.  CRIGHT
  87.  DOWN
  88.  CLEFT
  89. #EndIf
  90.